home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / UrbCedWWW.lha / urbcedwww / rexx / GetModel.ucwx < prev    next >
Encoding:
Text File  |  1998-09-30  |  1.0 KB  |  38 lines
  1. /**************************************************************************/
  2. /*                              GetModel.ucwx                             */
  3. /*                                                                        */
  4. /*                    Copyright ©1998 by Dick Whiting                     */
  5. /*                                                                        */
  6. /*------------------------------------------------------------------------*/
  7. /*              Used with UrbCedWWW inserting a model                     */
  8. /*      See the UrbCedWWW Readme for a more complete description.         */
  9. /**************************************************************************/
  10. /*
  11. $VER: 1.0 Copyright ©1998 by Dick Whiting
  12. */
  13.  
  14. parse arg type
  15.  
  16. options results
  17. Address CYGNUSED
  18.  
  19. type=strip(type)
  20. dir=pragma('D')
  21. fn=dir||'/Models/'||type||'.model'
  22.  
  23. 'STATUS INSERTMODE'
  24. ison=result
  25.  
  26. if ~ison then 'INSERT MODE'
  27.  
  28. 'INCLUDE FILE' fn
  29. included=result
  30.  
  31. 'CEDTOFRONT'
  32.  
  33. if ~included then do
  34.    'OKAY1' fn||' not found'
  35. end
  36.  
  37. exit
  38.